perm filename JFR.DO[S,AIL] blob
sn#252289 filedate 1976-12-12 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 COMPILER↔
C00003 ENDMK
C⊗;
;COMPILER↔
;text to make two-segment compiler supporting extended compilation↔
ALIAS S,AIL ;get onto the right area↔
COMPILE @ITRENC ;assemble the compiler↔
R FRAID ;increment compiler version number so XSAIL users don't get screwed↔
NCOMVER.REL↔Y7;≠. 1↔≠≠≠E
R LOADER ;load it↔
/SSAIL,COMVER,XTCLOR.new,SYS:HLBSA8/L,sys:libsa8/l,/V≠
DD ;move upper into low moby↔
SAIL≠:0;1↔LTHUUO≠≠≠X≠≠≠I≠≠≠E
START ;copy .JBVER to 400004, write protect, dumpout upper↔
SAVE SAIL ;lower↔
ALIAS↔